<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>2957</cardID>
<listID>2148</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>480</width>
<height>304</height>
</cardSize>
<script>function heelhrm2 who,caster Global Names,otoHit,toEvade,hits,condition,ohits,omhits put needsHealing() into who if who=0 then -- attack put getMagicUser() into who put "get harm("&who*-1&","&caster&")" into castSpell do castspell else -- heal add random(8) to line who of ohits if line who of ohits>line who of omhits then put line who of omhits into line who of ohits end if get "heals a member of its party" end if return itend heelhrm2--castASpell(who*-1,caster,dmg)function first who,caster,dmg -- Monster only Global Names,condition,toEvade Global otoHit,Hits,odmg,battleRnd,deadtypes if candothings(caster*-1) then -- active repeat with p=1 to the number of lines in condition if line p of condition is not in deadtypes then exit repeat end repeat put line P of Names into thisP if playerisActive(p) then if candothings(p) then put 1 into M else put 0 into M multiply who by -1 if random(line who of otoHit+battlernd)>=random(M*line p of toEvade) then -- a hit! put (line caster of odmg)*(m-2) into dmg subtract random(dmg) from line p of hits if line p of hits<=0 then -- dead return "kill" && thisP else return "hits the" && thisP && "for" && dmg end if else return "misses" && thisPs end if else return "hits" && thisP && "who is" && line p of condition end if else return "is unable to attack" end ifend firstfunction weakest who,caster,dmg Global Names,condition,toEvade,otoHit,Hits,odmg,battleRnd,deadtypes if candothings(caster*-1) then put getWeakest() into p put line P of Names into thisP if playerisActive(p) then if candothings(p) then put 1 into M else put 0 into M if random(line caster of otoHit+battlernd)>=random(M*line p of toEvade) then -- a hit! put (line caster of odmg)*(m-2)*-1 into dmg put random(dmg) into dmg subtract dmg from line p of hits put line p of hits into line p of fld "hits" if line p of hits<=0 then -- dead put "dead" into line p of condition return "kills"&&thisP else return "hits"&&thisP&&"for"&&dmg end if else return "misses"&&thisP end if else return "hits"&&thisP&&"who is"&&line p of condition end if else return "is unable to attack"&&thisP end ifend weakestfunction getWeakest Global condition,hits put empty into hitList repeat with p=1 to the number of lines in condition if playerisActive(p) then put line p of hits&"."&p&return after hitList end if end repeat sort hitList numeric put line 1 of hitList into p put (p-trunc(p))*10 into p return pend getWeakestfunction heelhrm1 who,caster,dmg Global Names,oNames,condition,ocondition,toEvade Global otoHit,oHits,omHits,Hits,oSpellPts put needsHealing() into W if playerisActive(caster*-1) then if W=0 or line caster of oSpellPts<=0 then put getActivePlayer() into P if p<1 then put 1 into p put line P of Names into thisP if candothings(p) then put 1 into M else put 0 into M if random(dmg*4)>random(M*line P of toEvade) then put abs(M-2)*dmg into dmg -- double for cantdothings subtract dmg from line P of Hits if line P of Hits<=0 then -- dead put "dead" into line P of condition return "kills" && thisP else return "hits" && thisP && "for" && dmg end if else return "misses" && thisP end if else -- heal the party member add dice(2,6) to line W of ohits if line W of oHits>line W of omHits then put line W of omHits into line W of oHits end if if line W of oHits>line W of omhits+12 then debug checkpoint subtract 1 from line caster of oSpellPts return "heals a member of its party" end if else return "is" && line caster of ocondition end ifend heelhrm1--O or P,lineNumber,stat,dmg,delay,duration,textfunction asid who,caster GLOBAL oHits,oNames,hits,ohits,toHit,toEvade,otoHit,otoEvade,Names,battleRnd put Dice(2,2) into Dmg if candoThings(who) then put 1 into M else put 0 into M put dmg*abs(M-2) into dmg if who<0 then multiply who by -1 put line who of Names into thisP if random(line caster of otoHit+battleRnd)>random(M*line who of toEvade) then subtract dmg from line who of Hits get "P," & who & ",hits,-1,1,5,is burned by acid" put the number of lines in cd fld "actionPerRound" into L put it into line L+1 of cd fld "actionPerRound" if playerisactive(who) then get "'s acid burns" && thisP && "for" && Dmg else get "hits" && thisP &", who is" && line who of condition end if else get "misses" && thisP end if else put "the" && line who of oNames into thisOne put line caster of Names into thisP if random(line caster of toHit+battleRnd)>random(M*line who of otoEvade) then subtract Dmg from line who of oHits get "O," & who & ",hits,-1,1,5,is burned by acid for 1" put the number of lines in cd fld "actionPerRound" into L put it into line L+1 of cd fld "actionPerRound" if playerisactive(who*-1) then get thisP & "'s acid burns" && thisOne && "for" && Dmg else get thisP && "throws acid at" && thisOne & ",who is" && line who of ocondition end if else get thisP && "misses" && thisOne end if end if return itend asidfunction attParalyzed who,caster GLOBAL oCondition,oNames,Condition,Names,toHitMg,toEvade,otoHit Global oToEvade,battleRnd,hits,ohits,odmg put "The" && line caster of oNames into P put line caster of odmg into dmg if Condition contains "Paralyzed" then -- attack put line 1 of getParalyzedP(Condition) into who put line who of Names into T if playerisActive(who) then if candothings(who) then put 1 into M put random(dmg) into dmg else put 0 into M put dmg*2 into dmg end if if random(line caster of otoHit+battleRnd)>M*random(line who of toEvade) then subtract dmg from line who of hits if line who of hits<=0 then put "dead" into line who of condition get "kills" && T else get "hits" && T && "for" && dmg end if else get "misses" && T end if else get "is unable to attack" && T end if return it else -- paralyze -- spell form is: name(who*-1,caster,dmg) put getActivePlayer() into P put "get paralyze"&"("&P*-1&","&caster&")" into castSpell do castSpell end if return itend attParalyzedfunction getParalyzedP global Condition put empty into list repeat with p=1 to the number of lines in Condition if line p of condition contains "Paralyzed" then put p & return before list end repeat return listend getParalyzedPfunction BlueWiz who,caster Global potions,Names,hits,oHits,omhits,condition,ocondition,ospellPts put line caster of oSpellPts into sp if line caster of oHits<=10 then -- heal flee put "flee" into line caster of oCondition get "flees to save itself" else if line caster of oHits<20 and sp>1 then -- heal self add random(8)+4 to line caster of oHits if line caster of ohits>line caster of omhits then put line caster of omhits into line caster of ohits subtract 1 from line caster of oSpellPts get "heals itself" else -- attack put getWeakest() into p get grenade(p*-1,caster) end if return itend BlueWizfunction Witch3 who,caster Global ohits,omhits,oCondition,Class,condition,hits,mhits,Names put 0 into inNeed repeat with i=1 to the number of lines in ohits if line i of ohits<=line i of omhits/2 then if playerisActive(i*-1) then add 1 to inNeed end if end repeat if inNeed>=2 and line caster of oSpellPts>0 then get healparty(-1,caster) else if condition contains "paralyzed" then put getParalyzed() into list repeat with i=1 to the number of lines in list put line i of list into p if line p of Class="Mage" or line p of Class="Cleric" then -- attack mage put (random(4)+1)*2 into dmg subtract dmg from line p of hits if line p of hits<=0 then get "killed"&&line p of Names put "dead" into line p of condition else get "hits"&&line p of Names&&"for"&&dmg end if end if end repeat else -- harmParty get harmParty(-1,caster) end if return itend Witch3function xDrain who,caster,p Global Names,hits,toEvade,spellPts,permanentSpells,condition Global oNames,otoHit,oSpells,odmg if p is not a number then -- choose who to attack put getActivePlayer() into p end if put line p of Names into T if candoThings(p) then put 1 into M else put 0 into M if random(line caster of otoHit)>M*random(line p of toEvade) then -- hit put line caster of odmg into xdmg if M=0 then put xdmg*2 into dmg else put random(xdmg) into dmg subtract dmg from line p of hits get "hits"&&T&&"for"&&dmg if line p of hits<=0 then -- dead put "dead" into line p of condition put "dead" into line p of fld "condition" get "killed"&&T else -- hit if line p of spellPts>0 then subtract dice(2,4) from line p of spellPts if line p of spellPts<0 then put 0 into line p of spellPts get "also drains"&&T&&"of spell pts."&return&it end if end if else -- miss get "missed"&&T end if return itend xDrainfunction xHome who,caster Global Names,condition,toEvade,otoHit multiply who by -1 put line who of Names into P if candothings(who) then put 1 into M else put 0 into M if random(line caster of otoHit)>M*random(line who of toEvade) then put "Home" into line who of condition lock screen push cd go cd P put "Andelair" into line 22 of fld "Stats" pop cd unlock screen get "has sent"&&P&&"Home" else -- missed get "tries to send"&&P&&"Home" end if return itend xHomefunction Raise w,c global oNames,ohits,omhits,ocondition,oSpellPts put empty into list repeat with m=1 to the number of lines in oHits if line m of oCondition="dead" then put m&return after list end repeat if list≠"" then -- raise put random(the number of lines in list) into L put line L of list into M put "Good" into line M of oCondition subtract 1 from line c of oSpellPts put line M of omHits into line m of oHits get "raises the"&&line m of oNames else get weakest(w,c,14) -- attack weakest end if return itend Raise</script>
